home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / mac / 3-Presentations / Apple Demos / CPUs / Macintosh Solutions Demo / Macintosh Solutions 1.0 / card_9067.txt < prev    next >
Text File  |  1990-08-24  |  6KB  |  279 lines
  1. -- card: 9067 from stack: in.0
  2. -- bmap block id: 7803
  3. -- flags: 4000
  4. -- background id: 4734
  5. -- name: USAS1.1
  6.  
  7.  
  8. -- part 12 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=325 top=93 right=115 bottom=489
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Which Macintosh?…
  20. ----- HyperTalk script -----
  21.  
  22. on mouseUp
  23.   determineSoftware -- bg script
  24.   put char 4 of short name of this card into whichCategory
  25.   if the hilite of cd btn 12 then
  26.     goSolution whichCategory,1.3
  27.   else
  28.     repeat with i = 9 to 11
  29.       set cursor to busy
  30.       if the hilight of cd btn i = true then
  31.         goSolution whichCategory,1.2
  32.         exit mouseUp
  33.       end if
  34.     end repeat
  35.     repeat with i = 2 to 8
  36.       set cursor to busy
  37.       if the hilight of cd btn i = true then
  38.         goSolution whichCategory,1.1
  39.         exit mouseUp
  40.       end if
  41.     end repeat
  42.     answer "Please select at least one software category."
  43.   end if
  44. end mouseUp
  45.  
  46.  
  47.  
  48.  
  49. -- part 4 (button)
  50. -- low flags: 00
  51. -- high flags: A005
  52. -- rect: left=289 top=184 right=205 bottom=423
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Word Processing
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   if the hilight of me is true then putMeInList (short name of me)
  64.   else getMeOutOfList (short name of me)
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 6 (button)
  70. -- low flags: 00
  71. -- high flags: A005
  72. -- rect: left=79 top=184 right=205 bottom=213
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: Database
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   if the hilight of me is true then putMeInList (short name of me)
  84.   else getMeOutOfList (short name of me)
  85. end mouseUp
  86.  
  87.  
  88.  
  89. -- part 5 (button)
  90. -- low flags: 00
  91. -- high flags: A005
  92. -- rect: left=289 top=144 right=165 bottom=423
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 0
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: Spreadsheets
  101. ----- HyperTalk script -----
  102. on mouseUp
  103.   if the hilight of me is true then putMeInList (short name of me)
  104.   else getMeOutOfList (short name of me)
  105. end mouseUp
  106.  
  107.  
  108.  
  109. -- part 7 (button)
  110. -- low flags: 00
  111. -- high flags: A005
  112. -- rect: left=79 top=204 right=225 bottom=159
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: E-Mail
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   if the hilight of me is true then putMeInList (short name of me)
  124.   else getMeOutOfList (short name of me)
  125. end mouseUp
  126.  
  127.  
  128.  
  129. -- part 8 (button)
  130. -- low flags: 00
  131. -- high flags: A005
  132. -- rect: left=79 top=264 right=285 bottom=213
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 0 / 0
  135. -- text alignment: 1
  136. -- font id: 0
  137. -- text size: 12
  138. -- style flags: 0
  139. -- line height: 16
  140. -- part name: Presentations
  141. ----- HyperTalk script -----
  142. on mouseUp
  143.   if the hilight of me is true then putMeInList (short name of me)
  144.   else getMeOutOfList (short name of me)
  145. end mouseUp
  146.  
  147.  
  148.  
  149. -- part 13 (button)
  150. -- low flags: 00
  151. -- high flags: A005
  152. -- rect: left=79 top=244 right=265 bottom=288
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 1
  156. -- font id: 0
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: Gradebook/Lesson Planning
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   if the hilight of me is true then putMeInList (short name of me)
  164.   else getMeOutOfList (short name of me)
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 10 (button)
  170. -- low flags: 00
  171. -- high flags: A005
  172. -- rect: left=79 top=164 right=185 bottom=186
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: Curriculum
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   if the hilight of me is true then putMeInList (short name of me)
  184.   else getMeOutOfList (short name of me)
  185. end mouseUp
  186.  
  187.  
  188.  
  189. -- part 11 (button)
  190. -- low flags: 00
  191. -- high flags: A005
  192. -- rect: left=79 top=284 right=305 bottom=186
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 1
  196. -- font id: 0
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: Publishing
  201. ----- HyperTalk script -----
  202. on mouseUp
  203.   if the hilight of me is true then putMeInList (short name of me)
  204.   else getMeOutOfList (short name of me)
  205. end mouseUp
  206.  
  207.  
  208.  
  209. -- part 14 (button)
  210. -- low flags: 00
  211. -- high flags: A005
  212. -- rect: left=79 top=224 right=245 bottom=247
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 1
  216. -- font id: 0
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: Education Multimedia
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   if the hilight of me is true then putMeInList (short name of me)
  224.   else getMeOutOfList (short name of me)
  225. end mouseUp
  226.  
  227.  
  228.  
  229. -- part 16 (button)
  230. -- low flags: 00
  231. -- high flags: A005
  232. -- rect: left=289 top=164 right=185 bottom=456
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 1
  236. -- font id: 0
  237. -- text size: 12
  238. -- style flags: 0
  239. -- line height: 16
  240. -- part name: Student Productivity
  241. ----- HyperTalk script -----
  242. on mouseUp
  243.   if the hilight of me is true then putMeInList (short name of me)
  244.   else getMeOutOfList (short name of me)
  245. end mouseUp
  246.  
  247.  
  248.  
  249. -- part 17 (button)
  250. -- low flags: 00
  251. -- high flags: A005
  252. -- rect: left=79 top=144 right=165 bottom=246
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 1
  256. -- font id: 0
  257. -- text size: 12
  258. -- style flags: 0
  259. -- line height: 16
  260. -- part name: Apple IIe Emulation
  261. ----- HyperTalk script -----
  262. on mouseUp
  263.   if the hilight of me is true then putMeInList (short name of me)
  264.   else getMeOutOfList (short name of me)
  265. end mouseUp
  266.  
  267.  
  268.  
  269. -- part contents for background part 1
  270. ----- text -----
  271. USAS1.1
  272.  
  273. -- part contents for background part 3
  274. ----- text -----
  275. 22
  276.  
  277. -- part contents for background part 7
  278. ----- text -----
  279. Click to select the software categories that interest you, then click the ‚ÄúWhich Macintosh?‚Ķ‚Äù button to see the recommended Macintosh.